val vertices : (float * float * float) list ref
val faces : (int * int * int) list ref
val maxCoord : float ref
val ( /| ) : float * float * float -> float -> float * float * float
val abs : float -> float
val addVertices : float -> float -> float -> unit
val addFaces : int -> int -> int -> unit
val parse : in_channel -> (float * float * float) array
val listToTab : (float * float * float) array -> unit
val foi : int -> float
val colorAssoc :
  (int * int * int * int) list -> 'a * 'b * float -> float * float * float
val colorTab :
  ('a * 'b * float) array ->
  (int * int * int * int) list -> (float * float * float) array
val main : string -> (float * float * float) array
